inherited fmTypeLesson: TfmTypeLesson
  Left = 269
  Top = 124
  Width = 902
  Height = 724
  Caption = 'fmTypeLesson'
  Constraints.MinHeight = 724
  Constraints.MinWidth = 902
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 0
    Top = 370
    Width = 894
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  inherited sbBottom: TStatusBar
    Top = 670
    Width = 894
  end
  inherited Panel1: TPanel
    Width = 894
    inherited BitBtn1: TBitBtn
      Left = 724
    end
    inherited BitBtn2: TBitBtn
      Left = 812
    end
    object edStr: TcxTextEdit
      Tag = 2
      Left = 8
      Top = 8
      TabStop = False
      Anchors = [akLeft, akTop, akRight, akBottom]
      ParentFont = False
      Properties.ReadOnly = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 2
      Width = 614
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 45
    Width = 894
    Height = 325
    Align = alTop
    TabOrder = 2
    object bAdd: TcxButton
      Left = 430
      Top = 49
      Width = 40
      Height = 41
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = bAddClick
      Colors.Default = clGreen
      Glyph.Data = {
        56020000424D560200000000000076000000280000001E0000001E0000000100
        040000000000E001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
        00000000000000000000077777777777777777777777777770000F7777777777
        777777777777777770000F8888888888888888888888888770000F8888888888
        888888888888888770000F88888888888888888888888887700A0F8888888888
        8888888888888887702C0F88888888888888888888888887704C0F8888888888
        888888888888888770900F88888888FF888888888888888770A80F8888888878
        FF8888888888888770150F888888887008FF88888888888770420F8888888870
        0008FF888888888770260F8888888870000008FF8888888770000F8888888870
        00000008FF88888770070F8888888870000000000778888770880F8888888870
        000000077888888770000F8888888870000007788888888770000F8888888870
        000778888888888770000F8888888870077888888888888770000F8888888877
        788888888888888770020F8888888878888888888888888770040F8888888888
        888888888888888770090F8888888888888888888888888770020F8888888888
        888888888888888770040F8888888888888888888888888770090F8888888888
        888888888888888770020F8888888888888888888888888770040FFFFFFFFFFF
        FFFFFFFFFFFFFFFF700000000000000000000000000000000000}
      LookAndFeel.Kind = lfFlat
      LookAndFeel.SkinName = ''
    end
    object bExtend: TcxButton
      Left = 431
      Top = 102
      Width = 38
      Height = 38
      Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = bExtendClick
      Colors.Default = clGreen
      Glyph.Data = {
        56020000424D560200000000000076000000280000001E0000001E0000000100
        040000000000E001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
        00000000000000000000077777777777777777777777777770000F7777777777
        777777777777777770000F8888888888888888888888888770000F8888888888
        888888888888888770000F88888888888888888888888887700A0F8888888888
        8888888888888887702C0F88888888888888888888888887704C0F8888888888
        888888888888888770900F8888888888888888888888888770A80F887F888888
        887F88888888888770150F8878FF88888878FF888888888770420F887008FF88
        887008FF8888888770A60F88700008FF88700008FF88888770000F8870000008
        FF70000008FF888770270F8870000000077000000007788770CA0F8870000007
        787000000778888770A60F8870000778887000077888888770000F8870077888
        887007788888888770250F8877788888887778888888888770CA0F8878888888
        887888888888888770A60F8888888888888888888888888770000F8888888888
        888888888888888770250F8888888888888888888888888770CA0F8888888888
        888888888888888770A60F8888888888888888888888888770000F8888888888
        888888888888888770250F8888888888888888888888888770CA0FFFFFFFFFFF
        FFFFFFFFFFFFFFFF702600000000000000000000000000000000}
      LookAndFeel.Kind = lfFlat
      LookAndFeel.SkinName = ''
    end
    object cxButton1: TcxButton
      Left = 431
      Top = 150
      Width = 39
      Height = 37
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = cxButton1Click
      Colors.Default = clRed
      Glyph.Data = {
        56020000424D560200000000000076000000280000001E0000001E0000000100
        040000000000E001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
        00000000000000000000077777777777777777777777777770000F7777777777
        777777777777777770000F8888888888888888888888888770000F8888888888
        888888888888888770000F88888888888888888888888887700A0F8888888888
        8888888888888887702C0F88888888888888888888888887704C0F8888888888
        888888888888888770900F8888888888888888FF8888888770A80F8888888888
        8888FF8F8888888770150F888888888888FF800F8888888770420F8888888888
        FF80000F8888888770A60F88888888FF8000000F8888888770000F888888FF80
        0000000F8888888770250F88888770000000000F8888888770CA0F8888888770
        0000000F8888888770260F88888888877000000F8888888770000F8888888888
        8770000F8888888770070F88888888888887700F8888888770880F8888888888
        8888877F8888888770000F88888888888888888F8888888770000F8888888888
        888888888888888770000F8888888888888888888888888770000F8888888888
        888888888888888770560F8888888888888888888888888770DD0F8888888888
        888888888888888770000F8888888888888888888888888770000FFFFFFFFFFF
        FFFFFFFFFFFFFFFF700000000000000000000000000000000000}
      LookAndFeel.Kind = lfFlat
      LookAndFeel.SkinName = ''
    end
    object Panel7: TPanel
      Left = 478
      Top = 1
      Width = 415
      Height = 323
      Align = alCustom
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = 'Panel4'
      TabOrder = 4
      object dbgClients: TcxGrid
        Left = 1
        Top = 1
        Width = 413
        Height = 321
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        object dbgClientsDBTableView1: TcxGridDBTableView
          OnDblClick = dbgClientsDBTableView1DblClick
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Enabled = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.CustomizeDialog = False
          FilterBox.Visible = fvNever
          DataController.DataSource = dlgDS
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Kind = skCount
              FieldName = 'SID'
              DisplayText = #1042#1089#1077#1075#1086' '#1085#1072#1081#1076#1077#1085#1086' '#1089#1086#1080#1089#1082#1072#1090#1077#1083#1077#1081
            end>
          DataController.Summary.SummaryGroups = <>
          DataController.Summary.Options = [soNullIgnore]
          OptionsBehavior.ImmediateEditor = False
          OptionsBehavior.IncSearch = True
          OptionsBehavior.ColumnHeaderHints = False
          OptionsCustomize.ColumnFiltering = False
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsSelection.HideFocusRectOnExit = False
          OptionsView.NavigatorOffset = 5
          OptionsView.NoDataToDisplayInfoText = ' '
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 2
          OptionsView.ColumnAutoWidth = True
          OptionsView.GroupByBox = False
          OptionsView.Header = False
          OptionsView.HeaderAutoHeight = True
          OptionsView.HeaderEndEllipsis = True
          OptionsView.Indicator = True
          OptionsView.ShowColumnFilterButtons = sfbAlways
          Styles.IncSearch = DMInv.cxGreenText
          object dbgClientsDBTableView1TFNAME: TcxGridDBColumn
            DataBinding.FieldName = 'TFNAME'
          end
        end
        object dbgClientsLevel1: TcxGridLevel
          GridView = dbgClientsDBTableView1
        end
      end
    end
    object Panel6: TPanel
      Left = 1
      Top = 1
      Width = 418
      Height = 323
      Align = alLeft
      Caption = 'Panel4'
      TabOrder = 3
      object dbTW: TdxDBTreeView
        Left = 1
        Top = 1
        Width = 416
        Height = 321
        ShowNodeHint = True
        AutoExpand = True
        HotTrack = True
        RowSelect = True
        DataSource = dsSD
        DisplayField = 'SDNAME'
        KeyField = 'SDID'
        ListField = 'SDNAME'
        ParentField = 'SDPARID'
        RootValue = 0
        SeparatedSt = '-'
        StateIndexField = 'SDISDELETE'
        RaiseOnError = True
        ReadOnly = True
        Indent = 19
        OnChanging = dbTWChanging
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        Options = [trCanDBNavigate]
        SelectedIndex = 1
        TabOrder = 0
        OnDblClick = bAddClick
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        StateImages = DMInv.ilBJTree
      end
    end
  end
  object Panel3: TPanel [4]
    Left = 0
    Top = 373
    Width = 894
    Height = 297
    Align = alClient
    TabOrder = 3
    object cxGrid1: TcxGrid
      Left = 1
      Top = 1
      Width = 892
      Height = 295
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      LookAndFeel.Kind = lfStandard
      object cxGridDBTableView1: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Visible = True
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Prior.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.NextPage.Visible = True
        NavigatorButtons.Last.Visible = True
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        FilterBox.Position = fpTop
        DataController.DataSource = dsFOPD
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skCount
            FieldName = 'pid'
          end>
        DataController.Summary.SummaryGroups = <>
        FilterRow.InfoText = #1065#1077#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1089#1086#1079#1076#1072#1085#1080#1103' '#1092#1080#1083#1100#1090#1088#1072
        NewItemRow.InfoText = #1065#1105#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1076#1086#1073#1072#1074#1083#1077#1085#1080#1103' '#1085#1086#1074#1086#1081' '#1089#1090#1088#1086#1082#1080
        OptionsBehavior.CellHints = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnFiltering = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Inserting = False
        OptionsView.NavigatorOffset = 10
        OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 4
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        Preview.Visible = True
        Styles.IncSearch = DMInv.cxKrasniyText
        Styles.Selection = DMInv.cxJoltiyFon
        Styles.Header = DMInv.cxSiniyText
        object cxGridDBTableView1RecId: TcxGridDBColumn
          DataBinding.FieldName = 'RecId'
          Visible = False
        end
        object cxGridDBTableView1sdname: TcxGridDBColumn
          Caption = #1057#1074#1086#1081#1089#1090#1074#1086
          DataBinding.FieldName = 'sdname'
          Options.Editing = False
          Width = 191
        end
        object cxGridDBTableView1cvalue: TcxGridDBColumn
          Caption = #1047#1085#1072#1095#1077#1085#1080#1077
          DataBinding.FieldName = 'cvalue'
          Width = 685
        end
      end
      object cxGridLevel1: TcxGridLevel
        GridView = cxGridDBTableView1
      end
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qFilter
    Left = 504
    Top = 64
  end
  object qFilter: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qFilterAfterInsert
    CachedUpdates = True
    SQL.Strings = (
      'SELECT TF.*'
      'FROM TEMP_FILTER TF'
      'WHERE TF.USER_NAME = CURRENT_USER'
      '    AND TF.TFNUM = :TFNUM')
    UpdateObject = IBUpdateSQL1
    GeneratorField.Field = 'TFID'
    GeneratorField.Generator = 'GEN_TEMP_FILTER_ID'
    Left = 536
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TFNUM'
        ParamType = ptUnknown
      end>
    object qFilterTFID: TIntegerField
      FieldName = 'TFID'
      Origin = '"TEMP_FILTER"."TFID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qFilterTFNUM: TIntegerField
      FieldName = 'TFNUM'
      Origin = '"TEMP_FILTER"."TFNUM"'
    end
    object qFilterUSER_NAME: TIBStringField
      FieldName = 'USER_NAME'
      Origin = '"TEMP_FILTER"."USER_NAME"'
      Size = 40
    end
    object qFilterTFNAME: TIBStringField
      FieldName = 'TFNAME'
      Origin = '"TEMP_FILTER"."TFNAME"'
      Size = 255
    end
    object qFilterTKOL: TIntegerField
      FieldName = 'TKOL'
      Origin = '"TEMP_FILTER"."TKOL"'
    end
    object qFilterTFSQLTEXT: TBlobField
      FieldName = 'TFSQLTEXT'
      Origin = '"TEMP_FILTER"."TFSQLTEXT"'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 16
    Top = 64
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterScroll = qSDAfterScroll
    BeforeOpen = qSDBeforeOpen
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDPARID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 3'
      '')
    GeneratorField.Field = 'SDID'
    Left = 48
    Top = 64
    ParamData = <
      item
        DataType = ftString
        Name = 'SDPARID'
        ParamType = ptUnknown
        Value = '1'
      end>
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      DisplayLabel = #1069#1083#1077#1084#1077#1085#1090
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object qSDSDISDELETE: TIntegerField
      DisplayLabel = #1059#1076#1072#1083#1080#1090#1100'?'
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object qTree: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT LIST(t1.sdid, '#39', '#39') AS list_sdid'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'WHERE NOT EXISTS'
      '('
      'SELECT t2.sdid'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t2'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'WHERE t2.sdparid = t1.sdid'
      ')')
    GeneratorField.Field = 'SDID'
    Left = 80
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SDID'
        ParamType = ptUnknown
      end>
    object qTreeLIST_SDID: TMemoField
      FieldName = 'LIST_SDID'
      ProviderFlags = []
      BlobType = ftMemo
      Size = 8
    end
  end
  object dsFOPD: TDataSource
    DataSet = memFOPD
    Left = 32
    Top = 448
  end
  object memFOPD: TdxMemData
    Indexes = <>
    SortOptions = []
    OnFilterRecord = memFOPDFilterRecord
    Left = 62
    Top = 448
    object memFOPDsdid_opt: TIntegerField
      FieldName = 'sdid_opt'
    end
    object memFOPDsdname: TStringField
      FieldName = 'sdname'
      Size = 255
    end
    object memFOPDidtype: TIntegerField
      FieldName = 'idtype'
    end
    object memFOPDcvalue: TStringField
      FieldName = 'cvalue'
      Size = 255
    end
  end
  object qSelectInf: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select so.sdid_opt,sd.sdname,sd2.sdid as idtype,sv.cvalue'
      'from SYS_DIC_OPT so'
      '    left join sys_dic sd on sd.sdid=so.sdid_opt'
      '    left join sys_dic sd2 on sd2.sdparid=so.sdid'
      
        '    left join sys_dic_val sv on sv.sdid=sd2.sdid and sv.sdid_opt' +
        '=sd.sdid'
      'where so.SOISDELETE is null')
    GeneratorField.Field = 'SDID'
    Left = 96
    Top = 448
    object qSelectInfSDID_OPT: TIntegerField
      FieldName = 'SDID_OPT'
      Origin = '"SYS_DIC_OPT"."SDID_OPT"'
    end
    object qSelectInfSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qSelectInfIDTYPE: TIntegerField
      FieldName = 'IDTYPE'
      Origin = '"SYS_DIC"."SDID"'
    end
    object qSelectInfCVALUE: TIBStringField
      FieldName = 'CVALUE'
      Origin = '"SYS_DIC_VAL"."CVALUE"'
      Size = 255
    end
  end
  object IBUpdateSQL1: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  TFID,'
      '  TFNUM,'
      '  USER_NAME,'
      '  TFNAME,'
      '  TFSQLTEXT,'
      '  TDATE,'
      '  TKOL'
      'from TEMP_FILTER '
      'where'
      '  TFID = :TFID')
    ModifySQL.Strings = (
      'update TEMP_FILTER'
      'set'
      '  TDATE = :TDATE,'
      '  TFID = :TFID,'
      '  TFNAME = :TFNAME,'
      '  TFNUM = :TFNUM,'
      '  TFSQLTEXT = :TFSQLTEXT,'
      '  TKOL = :TKOL,'
      '  USER_NAME = CURRENT_USER'
      'where'
      '  TFID = :OLD_TFID')
    InsertSQL.Strings = (
      'insert into TEMP_FILTER'
      '  (TDATE, TFID, TFNAME, TFNUM, TFSQLTEXT, TKOL, USER_NAME)'
      'values'
      
        '  (:TDATE, :TFID, :TFNAME, :TFNUM, :TFSQLTEXT, :TKOL, CURRENT_US' +
        'ER)')
    DeleteSQL.Strings = (
      'delete from TEMP_FILTER'
      'where'
      '  TFID = :OLD_TFID')
    Left = 568
    Top = 64
  end
end
